home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGMISC
/
EXTOL.LZH
/
BEATLES.EXT
< prev
next >
Wrap
Text File
|
1987-03-25
|
7KB
|
411 lines
% this program will give a beatles trivia quiz
% all answers are scanned for correct keywords
%
:menu
.exact
.reset(0)
.reset(2)
.clear
B E A T L E T R I V I A
.feed(2)
Select Difficulty:
.feed(2)
1) Wimp quiz
2) Normal quiz
3) Fanatic's quiz
4) Quit
.feed(3)
.keyword
.caseon
Quiz?+
.accept
.match(0,1).1.
.match(0,2).2.
.match(0,3).3.
.match(0,4).4.
.goto(0).menu.wimp.normal.fanatic.quit
%
:wimp
.clear
WIMP QUIZ
.feed(3)
.reset(0)
What album does "Birthday" appear on?
.accept
.match(0,1).WHITE.
.if match(0) do
That's correct, although quite obvious!
.increment(2,1)
.else
Sorry chump, but it was the "White Album"
.enddo
%
.reset(0)
.feed(2)
Where did Paul & George meet?
.accept
.match(9,1).LIVERPOOL.
.if match(9) do
Ingenious! How about being more specific?
.accept
.enddo
.reset(9)
.match(0,1).SCHOOL.
.if match(0) do
Sure enough, it was in school.
.increment(2,1)
.else
Nope, in school.
.enddo
%
.reset(0)
.feed(2)
What album does "Penny Lane" appear on?
.accept
.match(0,1).MAGICAL.
.match(0,1).MYSTERY.
.match(0,1).TOUR.
.if match(0,3) do
That's right, it was the "Magical Mystery Tour".
.increment(2,1)
.else
Sorry, but it was the "Magical Mystery Tour".
.enddo
%
.reset(0)
.feed(2)
In what year did John meet Yoko?
.accept
.match(0,1).1966.66.
.if match(0) do
Yes, it was in 1966.
.increment(2,1)
.else
No, it was in 1966.
.enddo
%
.reset(0)
.feed(2)
What American Folk singer signed with Apple in 1968?
.accept
.match(0,1).JAMES.
.match(0,1).TAYLOR.
.if match(0,2) do
That's him alright.
.increment(2,1)
.else
The right answer was James Taylor.
.enddo
%
.reset(0)
.feed(2)
What will I do "because tomorrow may rain" ?
.accept
.match(0,1).I'LL.
.match(0,1).FOLLOW.
.match(0,1).THE.
.match(0,1).SUN.
.if match(0,4) do
That's correct.
.increment(2,1)
.else
The lyrics go... "I'll follow the sun".
.enddo
%
.reset(0)
.feed(2)
What album does "My Love" appear on ?
.accept
.match(0,1).RED.
.match(0,1).ROSE.
.match(0,1).SPEEDWAY.
.if match(0,3) do
That's right!
.increment(2,1)
.else
Nope, the album was called "Red Rose Speedway".
.enddo
%
.reset(0)
.feed(2)
What album does "Thank You Girl" appear on ?
.accept
.match(0,1).2ND.SECOND.
.if match(0) do
Yes, that was it.
.increment(2,1)
.else
No, it was the "Beatle's 2nd album".
.enddo
%
.reset(0)
.feed(2)
What album does "She Said, She Said" appear on ?
.accept
.match(0,1).REVOLVER.
.if match(0) do
That's right.
.increment(2,1)
.else
No, it was Revolver!
.enddo
%
.reset(0)
.feed(2)
Where did John & Yoko have their honeymoon ?
.accept
.match(0,1).AMSTERDAM.
.if match(0) do
That's right!
.increment(2,1)
.else
No, they spent it in Amsterdam.
.enddo
%
Your score on the wimp quiz was+
.print(2)+
out of a possible 10.
Press return to return to menu.
.accept
.goto.menu
%
:normal
.clear
NORMAL QUIZ
.feed(3)
.reset(0)
Who wrote "Don't Worry Kyoko"?
.accept
.match(0,1).YOKO.
.if match(0) do
Yes it was.
.increment(3,1)
.else
No, it was Yoko Ono.
.enddo
%2
.reset(0)
.feed(2)
What came first, "Pipes of Peace" or "Milk and Honey" ?
.accept
.match(0,1).PIPES.
.if match(0) do
That's right.
.increment(3,1)
.else
Nope, Pipes of Peace.
.enddo
%3
.reset(0)
.feed(2)
Who sang lead on "No Reply" ?
.accept
.match(0,1).JOHN.LENNON.
.if match(0) do
That's who it was.
.increment(3,1)
.else
No, it was John Lennon.
.enddo
%4
.reset(0)
.feed(2)
Who sang "Mr Tambourine Man" on "The Concert for Bangladesh" album ?
.accept
.match(0,1).DYLAN.ZIMMERMAN.
.if match(0) do
Yes he did.
increment(3,1)
.else
No, it was Bob Dylan.
.enddo
%5
.reset(0)
.feed(2)
What non-Beatle performed on keyboards for "Let It Be" ?
.accept
.match(0,1).BILLY.WILLIAM.
.match(0,1).PRESTON.
.if match(0,2) do
Yes, it was Billy Preston.
increment(3,1)
.else
No, it was Billy Preston.
.enddo
%6
.reset(0)
.feed(2)
In what year was "Love Comes To Everyone" released ?
.accept
.match(0,1).1979.79.
.if match(0) do
Yes, that was the year.
.increment(3,1)
.else
No, it was 1979.
.enddo
%7
.reset(0)
.feed(2)
What was the name of Paul's first solo album?
.accept
.match(0,1).MCCARTNEY.MC CARTNEY.
.if match(0) do
Yes that was the title.
.increment(3,1)
.else
No, it was called "McCartney".
.enddo
%8
.reset(0)
.feed(2)
Who recorded "Blow Away" ?
.accept
.match(0,1).GEORGE.HARRISON.
.if match(0) do
Yes, that was him.
.increment(3,1)
.else
No, it was George Harrison.
.enddo
%9
.reset(0)
.feed(2)
What Beatles song refers to a cival servant in Revenue ?
.accept
.match(0,1).TAXMAN.
.if match(0) do
Yes, that's correct.
.increment(3,1)
.else
No, it was "Taxman".
.enddo
%10
.reset(0)
.feed(2)
What kind of girl was "Her Majesty" ?
.accept
.match(0,1).PRETTY.
.match(0,1).NICE.
.match(0,1).GIRL.
.if match(0,3) do
Yes, indeed she was.
.increment(3,1)
.else
She was "a pretty nice girl".
.enddo
%
Your score was+
.print(3)+
out of a possible 10.
.feed(2)
Hit return to return to menu
.accept
.goto.menu
%
:fanatic
.clear
FANATIC'S QUIZ
.feed(3)
.reset(4)
.reset(0)
What album does "On The Way" appear on ?
.accept
.match(0,1).MCCARTNEY.MC CARTNEY.
.match(0,1).II.2.TWO.
.if match(0,2) do
That's right.
.increment(4,1)
.else
No, it was "McCartney II".
.enddo
%2
.feed(2)
.reset(0)
What is the name of Pete Best's mother?
.accept
.match(0,1).MONA.
.if match(0) do
That's her name!
.increment(4,1)
.else
No, it was Mona.
.enddo
%3
.feed(2)
.reset(0)
What 2 of Paul's songs were banned by the BBC in the 70's ?
.accept
.reset(9)
.reset(8)
.match(0,1).HI.
.if match(0) do
.increment(9,1)
.enddo
.reset(0)
.match(0,1).GIVE.
.match(0,1).IRELAND.
.match(0,1).BACK.
.match(0,1).TO.
.match(0,1).THE.
.match(0,1).IRISH.
.if match(0,6) do
.increment(8,1)
.enddo
.if match(8) do
.if match(9) do
Yes those were the songs!
.increment(4,1)
.else
You got one, but the other was "Hi, Hi, Hi".
.enddo
.else
.if match(9) do
You got one, but the other was "Give Ireland Back to the Irish".
.else
No, the two were "Hi, Hi, Hi" and "Give Ireland Back to the Irish".
.enddo
.enddo
%4
.feed(2)
.reset(0)
What was the Beatle's first #1 hit song in Britain?
.accept
.match(0,1).PLEASE.
.match(0,1).ME.
.if match(0,2) do
Yes, that was the song.
.increment(4,1)
.else
No, it was "Please Please Me".
.enddo
%5
.feed(2)
.reset(0)
What was the "working title" of "Hey Jude" ?
.accept
.match(0,1).HEY.
.match(0,1).JULES.
.if match(0,2) do
Yes it was "Hey Jules".
.increment(4,1)
.else
No, it was "Hey Jules".
.enddo
%
.feed(3)
Your score was+
.print(4)+
out of a possible 5.
.feed(1)
Press return to return to menu.
.accept
.goto.menu
%
:quit
.stop